---
title: "Top R Title Words RBloggers & StackOverflow"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(crosstalk)

dt <- dir("RB_data", full.names = T) %>%
  map_df(read_csv)
dt <- dt[!duplicated(dt$Title),]
dt$Date <- year(mdy(dt$Date))

df <- dt %>%
  select(Title, Date, Author) %>%
  group_by(Date) %>%
  summarise(all_year_title = paste(Title, collapse = " "))



```


# RBloggers

## Row

### Total R Conference Events

```{r}
#valueBox(total_events, icon = "fa-calendar-alt", color = "orange")
```

### Total RSVP Count

```{r}
#valueBox(total_rsvp, icon = "fa-thumbs-up", color = "green")
```

## Row

### Daily Events Count

```{r}
# daily_count <- as.data.frame(table(event_data$local_date))
# plot1 <- daily_count %>%
#   plot_ly(x = ~Var1,
#           y = ~Freq,
#           color = "purple",
#           type = 'bar') %>%
#   layout(xaxis = list(title = "Date"), yaxis = list(title = "Number of Events", 
#                                                     range = c(0, max(daily_count$Freq))))
# plot1
```

### Location Vs Event Count

```{r}
# loc_count <- as.data.frame(table(event_data$venue_city))
# plot2 <- loc_count %>%
#   plot_ly(x = ~Freq[-1],
#           y = ~Var1[-1],
#           marker = list(color = 'rgba(38, 24, 74, 0.8)',
#                       line = list(color = 'rgb(248, 248, 249)', width = 1)),
#           type = 'bar', orientation = 'h') %>%
#   layout(xaxis = list(title = "Number of Events"), yaxis = list(title = "Location of Events"))
# plot2
```

# World Map - Events {data-orientation=columns} 

## Column {data-width = 300}

### Map Filters

```{r}
# filter_select(
#   id = "venue_city",
#   label = "City name",
#   sharedData = sd,
#   group = ~venue_city
# )
# filter_checkbox(
#   id = "venue_country",
#   label = "Country name",
#   sharedData = sd,
#   group = ~venue_country,
#   allLevels = TRUE,
#   inline = FALSE,
#   columns = 4
# )
```

### Datatable

```{r}
# datatable(filter_event_data[,-1], rownames = FALSE, extensions = 'Scroller', 
#           options = list(scrollY = 200, scroller = TRUE, columnDefs = list(list(className = 'dt-left', targets = 0:3))))
```

## Column {data-width = 600}

### Interactive map

```{r}
# sd %>% 
#   leaflet::leaflet() %>%
#   leaflet::addProviderTiles(providers$OpenStreetMap) %>% 
#   leaflet::addAwesomeMarkers(
#     ~filter_event_data$venue_lon, ~filter_event_data$venue_lat,
#     popup = ~paste0(
#       "
", filter_event_data$name, "
",
#       
#       "",
#       
#       "",
#       "",
#       "",
#       "",
#       
#       "",
#       "",
#       "",
#       "",
#       "",
#       
#       "",
#       "",
#       "",
#       "",
#       "",
#       
#       "",
#       "",
#       "",
#       "",
#       "",
#       
#       "",
#       "",
#       "",
#       "",
#       ""
#     ),  # end popup()
#     icon = awesomeIcons(
#       library = "ion",
#       icon = "ion-android-star-outline",
#       iconColor = "white",
#       markerColor = "red"
#     )
#   ) %>%   # end addAwesomeMarkers()
#   leaflet::addMeasure()
```
ID
", filter_event_data$id, "
Date
", filter_event_data$local_date, "
RSVP Count 
", filter_event_data$yes_rsvp_count, "
Location
", filter_event_data$venue_city, ", ", filter_event_data$venue_country, "
Coordinates 
", filter_event_data$venue_lat, ", ", filter_event_data$venue_lon, "